home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / zpont311.lha / zpoint-3.11 / Rexx / 4binden.zprx next >
Text File  |  1995-07-23  |  3KB  |  132 lines
  1. /*
  2.    $VER: 4binden.zprx 1.2 (21.7.95) Copyright (c) Nils Görs.
  3.  
  4.  
  5.    FUNKTIONSBESCHREIBUNG:
  6.  
  7.     Zum  zusammenfügen  von  mehreren,  thematisch zusammengehörenden,
  8.     Nachrichten  mit  anschließender Sicherung in das  selbe Brett und
  9.     nicht, wie das interne 4binden, in das Spool-Brett.
  10.  
  11.  
  12.    INSTALLATION:
  13.  
  14.     Kopieren sie dieses Skript in  das  Rexx-Verzeichnis  von  ZP  und
  15.     fügen  sie  danach  der  Datei  'fkeys.zp'  auf Wunsch den Eintrag
  16.     "F1:SYS:Rexxc/RX ZPOINT:Rexx/4binden.zprx %s" hinzu.
  17.  
  18.     Alternativ hierzu können Sie auch folgende  Zeilen  in  die  Datei
  19.     usermenus.zp einfügen:
  20.  
  21.     *4binden im Brett
  22.     SYS:Rexxc/RX Zodiac:Rexx/4binden.zprx %s
  23.  
  24.  
  25.    AUTOR DIESES SKRIPTS:
  26.  
  27.        Nils Görs              Tel. : +49 (0)202 784258
  28.        Kaiserstr. 97a         EMail: N.Goers@Art-Line.Art-Line.de
  29.        42329 Wuppertal          oder über das ZP-Support-Brett.
  30.  
  31.    Verwenden Sie bitte nach Möglichkeit elektronische Post!
  32. */
  33.  
  34. /* Sollen die alten Nachrichten gelöscht werden ??
  35.    1 = JA (4binden.zprx verhält sich dabei wie der interne 4binden
  36.            Befehl von Zodiac's Point!)
  37. */
  38. DeleteMess = 0
  39. /* ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
  40.  *      Bitte geben Sie hier ihre Präferenzen ein !                *
  41.  *******************************************************************/
  42.  
  43. /*******************************************************************
  44.  *      Bitte unterhalb dieser Zeile nichts mehr verändern!        *
  45.  *******************************************************************/
  46. Mails.tmp = "t:4binden.tmp"
  47. NL = '0a'x
  48.  
  49. OPTIONS RESULTS
  50. /* ------ von welchem ZP Port wurde das Script aufgerufen ? ------ */
  51. PARSE ARG zpPort
  52. IF zpPort == "" THEN
  53.    zpPort = "ZPoint"
  54. ADDRESS VALUE zpPort
  55.  
  56. WHICHLEVEL /* von wo wurde das Skript gestartet ? */
  57. IF RESULT ~= "BOARD" THEN DO
  58.    REQUESTNOTIFY "Bitte begeben Sie sich in ein Brett!"
  59.    EXIT
  60. END
  61.  
  62. COUNT LISTED
  63.  IF RESULT <= 1 THEN DO
  64.   REQUESTNOTIFY "Verbinden macht nur dann einen Sinn, wenn"NL,
  65.                 "man mehr als eine Nachricht hat!"; EXIT
  66.  END
  67.  IF RESULT == 0 THEN DO
  68.   REQUESTNOTIFY "Es wurden keine Nachrichten gefunden,"NL,
  69.                 "die markiert sind zum verbinden!"; EXIT
  70.  END
  71. 'GUILOCK text="verbinde Nachrichten..."'
  72.  
  73. BOARDINFO LABEL
  74. Brettname = Result
  75.  
  76. MESSAGEINFO POSITION /* Wo steht der Markierungsbalken? */
  77. MailPos = Result
  78.  
  79. Subjectname = 0
  80. JUMPTOMESSAGE 1                /* An die erste Nachricht springen! */
  81. MESSAGEINFO LISTED            /* ist diese erste Nachricht markiert? */
  82.  IF Result == 1 THEN
  83.   DO
  84.    MESSAGEINFO FULLSUBJECT
  85.    SubjectName = Result
  86.    MESSAGEINFO AUTHOR
  87.    ReceiverName = Result
  88.    CALL _Auslagern
  89.   END
  90.  
  91. IF Subjectname == 0 THEN
  92.  DO
  93.   JUMPTOMESSAGE LISTED
  94.   MESSAGEINFO FULLSUBJECT
  95.   SubjectName = Result
  96.   MESSAGEINFO AUTHOR
  97.   ReceiverName = Result
  98.   CALL _Auslagern
  99.  END
  100.  
  101. more = 1
  102. DO WHILE more
  103.   JUMPTOMESSAGE LISTED
  104.   more = (RC)
  105.  IF more == 1 THEN CALL _Auslagern
  106. END
  107. WRITEMESSAGE Mails.tmp,
  108.              'RECEIVER' '"'Receivername'"',
  109.              'SUBJECT' '"'SubjectName'"',
  110.              'SAVE'
  111. id.no = RESULT
  112. CALL _DeleteMessInSpool
  113. GUILOCK OFF
  114. EXIT
  115.  
  116. _Auslagern:
  117. SAVEMESSAGEBODY Mails.tmp
  118. IF DeleteMess == 1 THEN DELETE ONE FORCE
  119. RETURN
  120.  
  121. _DeleteMessInSpool:
  122. BOARDMENU
  123. JUMPTOBOARD 1
  124.  ENTERBOARD
  125.   JUMPTOMESSAGE 'ID' id.no
  126.   DELETE ONE
  127.   BOARDMENU
  128.  JUMPTOBOARD 'NAME' BrettName
  129. ENTERBOARD
  130. RETURN
  131. /*EOS*/
  132.